Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
                                Cancel As Boolean)
    MsgBox Me.Name & "QxsFC"
End Sub
